Use fromRight' instead of lambda

JordanMartinez · Jul 16, 2021 · a1f97fe · a1f97fe
1 parent 5653c67
commit a1f97fe
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/recipes/ValueBasedJsonCodecLog/src/Main.purs b/recipes/ValueBasedJsonCodecLog/src/Main.purs
@@ -10,15 +10,15 @@ import Data.Codec.Argonaut (JsonCodec, JsonDecodeError(..), printJsonDecodeError
 import Data.Codec.Argonaut as CA
 import Data.Codec.Argonaut.Common as CAM
 import Data.Codec.Argonaut.Record as CAR
-import Data.Either (Either(..), either)
+import Data.Either (Either(..), either, fromRight')
 import Data.Int as Int
 import Data.Maybe (Maybe(..))
 import Data.Profunctor (dimap)
 import Data.String (splitAt)
 import Data.TraversableWithIndex (forWithIndex)
 import Effect (Effect)
 import Effect.Console (log, logShow)
-import Partial.Unsafe (unsafePartial)
+import Partial.Unsafe (unsafeCrashWith, unsafePartial)
 
 main :: Effect Unit
 main = do
@@ -47,7 +47,7 @@ main = do
   log $ stringify $ encode entireRecordCodec exampleValue
 
 exampleJson :: Json
-exampleJson = unsafePartial $ (\(Right json) -> json) $ jsonParser
+exampleJson = unsafePartial $ (fromRight' \_ -> unsafeCrashWith "got Left: bad parser") $ jsonParser
   """
   {
     "string":"string value",