0.2.5 initial commit

Makefile incomplete

agent/src/Lib/ProductKey.hs

@@ -0,0 +1,12 @@
+module Lib.ProductKey where
+
+import           Startlude
+import           Protolude.Unsafe               ( unsafeHead )
+
+import           System.FilePath
+
+productKeyPath :: FilePath -> FilePath
+productKeyPath rt = rt </> "root/agent/product_key"
+
+getProductKey :: Text -> IO Text
+getProductKey rt = unsafeHead . lines <$> readFile (productKeyPath $ toS rt)