Merge pull request #18 from legrostdg/double

add doubleBridge/psNumber lgtm! Thank you!
eskimor · Feb 1, 2017 · 1d7c299 · 1d7c299
2 parents 9292288 + 959d437
commit 1d7c299
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 0 deletions.
diff --git a/src/Language/PureScript/Bridge.hs b/src/Language/PureScript/Bridge.hs
@@ -103,6 +103,7 @@ defaultBridge = textBridge
     <|> eitherBridge
     <|> boolBridge
     <|> intBridge
+    <|> doubleBridge
     <|> tupleBridge
     <|> unitBridge
 

diff --git a/src/Language/PureScript/Bridge/PSTypes.hs b/src/Language/PureScript/Bridge/PSTypes.hs
@@ -40,6 +40,14 @@ psInt = TypeInfo {
   , _typeParameters = []
   }
 
+psNumber :: PSType
+psNumber = TypeInfo {
+    _typePackage = "purescript-prim"
+  , _typeModule = "Prim"
+  , _typeName = "Number"
+  , _typeParameters = []
+  }
+
 -- | Uses  type parameters from 'haskType' (bridged).
 psMaybe :: MonadReader BridgeData m => m PSType
 psMaybe = TypeInfo "purescript-maybe" "Data.Maybe" "Maybe" <$> psTypeParameters

diff --git a/src/Language/PureScript/Bridge/Primitives.hs b/src/Language/PureScript/Bridge/Primitives.hs
@@ -26,6 +26,9 @@ dummyBridge = clearPackageFixUp
 intBridge :: BridgePart
 intBridge = typeName ^== "Int" >> return psInt
 
+doubleBridge :: BridgePart
+doubleBridge = typeName ^== "Double" >> return psNumber
+
 listBridge :: BridgePart
 listBridge = typeName ^== "[]" >> psArray