chore: fmt

src/Data/YAML/Foreign/Decode.js

@@ -1,10 +1,9 @@
 import yaml from 'js-yaml'
 
-export function parseYAMLImpl (left, right, str) {
+export function parseYAMLImpl(left, right, str) {
   try {
     return right(yaml.load(str))
-  }
+  } catch (e) {
-  catch (e) {
     return left(e.toString())
   }
 }

src/Data/YAML/Foreign/Decode.purs

@@ -1,5 +1,4 @@
-module Data.YAML.Foreign.Decode (parseYAMLToJson)
+module Data.YAML.Foreign.Decode (parseYAMLToJson) where
-where
 
 import Foreign (F, Foreign, ForeignError(..), fail)
 import Data.Function.Uncurried (Fn3, runFn3)
@@ -7,16 +6,15 @@ import Prelude (pure, (<<<), (>>=))
 import Unsafe.Coerce (unsafeCoerce)
 import Data.Argonaut.Core (Json)
 
-foreign import parseYAMLImpl :: forall r.
+foreign import parseYAMLImpl
-  Fn3 (String -> r) (Foreign -> r) String r
+  :: forall r
-
+   . Fn3 (String -> r) (Foreign -> r) String r
 
 -- | Attempt to parse a YAML string, returning the result as foreign data.
 parseYAML :: String -> F Foreign
 parseYAML yaml =
   runFn3 parseYAMLImpl (fail <<< ForeignError) pure yaml
 
-
 -- | Attempt to parse a YAML string, returning the result as Json
 parseYAMLToJson :: String -> F Json
 parseYAMLToJson yaml =

src/Data/YAML/Foreign/Encode.js

@@ -2,17 +2,17 @@ import yaml from 'js-yaml'
 
 export const jsNull = null
 
-export function objToHash (valueToYAMLImpl, fst, snd, obj) {
+export function objToHash(valueToYAMLImpl, fst, snd, obj) {
   const hash = {}
 
-  for(let i = 0; i < obj.length; i++) {
+  for (let i = 0; i < obj.length; i++) {
     hash[fst(obj[i])] = valueToYAMLImpl(snd(obj[i]))
   }
 
   return hash
 }
 
-export function toYAMLImpl (a) {
+export function toYAMLImpl(a) {
   // noCompatMode does not support YAML 1.1
-	return yaml.dump(a, {noCompatMode : true})
+  return yaml.dump(a, { noCompatMode: true })
 }

src/Data/YAML/Foreign/Encode.purs

@@ -1,10 +1,11 @@
-module Data.YAML.Foreign.Encode (
+module Data.YAML.Foreign.Encode
-  YValue,
+  ( YValue
-  class ToYAML,
+  , class ToYAML
-  toYAML,
+  , toYAML
-  entry, (:=),
+  , entry
-  object,
+  , (:=)
-  printYAML
+  , object
+  , printYAML
   ) where
 
 import Data.Map as M
@@ -19,6 +20,7 @@ import Unsafe.Coerce (unsafeCoerce)
 
 type YObject = M.Map String YValue
 type YArray = Array YValue
+
 foreign import data YAML :: Type
 
 data YValue
@@ -93,8 +95,8 @@ object :: Array Pair -> YValue
 object ps = YObject $ M.fromFoldable (toUnfoldable ps :: List Pair)
 
 foreign import jsNull :: YAML
-foreign import objToHash ::
+foreign import objToHash
-    Fn4 (YValue -> YAML)
+  :: Fn4 (YValue -> YAML)
        (Tuple String YValue -> String)
        (Tuple String YValue -> YValue)
        (Array (Tuple String YValue))

test/Instances.purs

@@ -26,16 +26,25 @@ data GeoObject = GeoObject
   }
 
 derive instance genericGeoObject :: Generic GeoObject _
-instance showGeoObject :: Show GeoObject where show = genericShow
+instance showGeoObject :: Show GeoObject where
-instance eqGeoObject :: Eq GeoObject where eq = genericEq
+  show = genericShow
+
+instance eqGeoObject :: Eq GeoObject where
+  eq = genericEq
 
 derive instance genericPoint :: Generic Point _
-instance showPoint :: Show Point where show = genericShow
+instance showPoint :: Show Point where
-instance eqPoint :: Eq Point where eq = genericEq
+  show = genericShow
+
+instance eqPoint :: Eq Point where
+  eq = genericEq
 
 derive instance genericMobility :: Generic Mobility _
-instance showMobility :: Show Mobility where show = genericShow
+instance showMobility :: Show Mobility where
-instance eqMobility :: Eq Mobility where eq = genericEq
+  show = genericShow
+
+instance eqMobility :: Eq Mobility where
+  eq = genericEq
 
 instance geoJson :: DecodeJson GeoObject where
   decodeJson json = do
@@ -55,7 +64,6 @@ instance mobilityJson :: DecodeJson Mobility where
       "Flex" -> pure Flex
       _ -> Left $ TypeMismatch "Mobility must be either Flex or Fix"
 
-
 instance pointJson :: DecodeJson Point where
   decodeJson json = do
     obj <- decodeJson json
@@ -63,7 +71,6 @@ instance pointJson :: DecodeJson Point where
     y <- getField obj "Y"
     pure $ Point x y
 
-
 instance pointToYAML :: ToYAML Point where
   toYAML (Point x y) =
     object

test/Main.purs

@@ -17,9 +17,9 @@ import Test.Spec.Assertions (shouldEqual)
 import Test.Spec.Reporter.Console (consoleReporter)
 import Test.Spec.Runner (runSpec)
 
-
 yamlInput :: String
-yamlInput = """
+yamlInput =
+  """
 - Name: House
   Scale: 9.5
   # Points describe the outer limit of an object.
@@ -46,7 +46,8 @@ yamlInput = """
 """
 
 yamlOutput :: String
-yamlOutput = """- Coverage: 10
+yamlOutput =
+  """- Coverage: 10
   Mobility: Fix
   Name: House
   Points:
@@ -70,9 +71,9 @@ yamlOutput = """- Coverage: 10
   Scale: 1
 """
 
-
 yamlMapOutput :: String
-yamlMapOutput = """key:
+yamlMapOutput =
+  """key:
   - Coverage: 10
     Mobility: Fix
     Name: House
@@ -98,7 +99,8 @@ yamlMapOutput = """key:
 """
 
 pointYaml :: String
-pointYaml = """X: 1
+pointYaml =
+  """X: 1
 Y: 1
 """
 
@@ -109,11 +111,9 @@ yamlToData s = case runExcept $ parseYAMLToJson s of
     Left error -> Left $ printJsonDecodeError error
     Right value -> Right value
 
-
 testMap :: Map String (Array GeoObject)
 testMap = Map.singleton "key" parsedData
 
-
 parsedData :: Array GeoObject
 parsedData =
   [ GeoObject
@@ -139,7 +139,7 @@ fullCircle :: String -> Either String String
 fullCircle yamlString = (readPoint yamlString) >>= pure <<< printYAML
 
 main :: Effect Unit
-main = launchAff_ $ runSpec [consoleReporter] do
+main = launchAff_ $ runSpec [ consoleReporter ] do
   describe "purescript-yaml" do
     describe "decode" do
       it "Decodes YAML" do