wip

Author: functora

ghcjs/cryptogram/cryptogram.cabal

@@ -10,8 +10,8 @@ flag ghcid
   default: False
 
 common pkg
-  other-modules:      Paths_delivery_calculator
-  autogen-modules:    Paths_delivery_calculator
+  other-modules:      Paths_cryptogram
+  autogen-modules:    Paths_cryptogram
   default-language:   Haskell2010
   hs-source-dirs:     src
   js-sources:         static/app.js

ghcjs/cryptogram/src/App/Types.hs

@@ -55,7 +55,7 @@ import qualified Functora.Prelude as Prelude
 import qualified Functora.Rates as Rates
 import qualified Functora.Web as Web
 import qualified Network.URI as NetUri
-import qualified Paths_delivery_calculator as Paths
+import qualified Paths_cryptogram as Paths
 import qualified Text.Regex as Re
 import qualified Text.URI as URI
 import qualified Text.URI.Lens as URILens
@@ -542,7 +542,7 @@ mkGooglePlayLink st =
             }
     uri <-
       mkURI
-        "https://play.google.com/store/apps/details?id=com.functora.delivery_calculator"
+        "https://play.google.com/store/apps/details?id=com.functora.cryptogram"
     pure
       $ uri
       & URILens.uriQuery

ghcjs/cryptogram/src/App/Xlsx.hs

@@ -12,7 +12,6 @@ import qualified Data.ByteString.Lazy as BL
 import qualified Data.Map as Map
 import qualified Data.Time.Format as TF
 import Functora.Miso.Prelude
-import Lens.Micro ((?~))
 
 newXlsx :: St Unique -> Map Unicode Rfc2397 -> BL.ByteString
 newXlsx st imgs = xlsx

ghcjs/cryptogram/src/Main.hs

@@ -430,7 +430,7 @@ evalModel prev = do
                 ( ^.
                     #quoteMoneyAmount
                       . to
-                        ( from @(Ratio Natural) @Rational
+                        ( from @FixNonNeg @Rational
                             . Money.unMoneyAmount
                         )
                 )

ghcjs/cryptogram/trapeze.yaml

@@ -3,7 +3,7 @@ platforms:
     appName: Cryptogram
     versionCode: 23
     versionName: 0.1.0.23
-    packageName: com.functora.delivery_calculator
+    packageName: com.functora.cryptogram
     manifest:
       - file: AndroidManifest.xml
         target: manifest/application/activity