mirror of
https://github.com/urbit/shrub.git
synced 2024-12-21 18:01:32 +03:00
48 lines
1.1 KiB
Haskell
48 lines
1.1 KiB
Haskell
module Noun
|
|
( module Noun.Atom
|
|
, module Data.Word
|
|
, module Noun.Conversions
|
|
, module Noun.Convert
|
|
, module Noun.Core
|
|
, module Noun.Cue
|
|
, module Noun.Jam
|
|
, module Noun.Tank
|
|
, module Noun.TH
|
|
, _Cue
|
|
, loadFile
|
|
) where
|
|
|
|
import ClassyPrelude
|
|
import Control.Lens
|
|
|
|
import Data.Word
|
|
import Noun.Atom
|
|
import Noun.Conversions
|
|
import Noun.Convert
|
|
import Noun.Core
|
|
import Noun.Cue
|
|
import Noun.Jam
|
|
import Noun.Tank
|
|
import Noun.TH
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
_Cue :: Prism' ByteString Noun
|
|
_Cue = prism' jamBS (eitherToMaybe . cueBS)
|
|
where
|
|
eitherToMaybe (Left _) = Nothing
|
|
eitherToMaybe (Right x) = Just x
|
|
|
|
data LoadErr = CueErr DecodeErr
|
|
| ParseErr [Text] Text
|
|
deriving (Eq, Ord, Show)
|
|
|
|
loadFile :: ∀a. FromNoun a => FilePath -> IO (Either LoadErr a)
|
|
loadFile pax = do
|
|
bs <- readFile pax
|
|
case cueBS bs of
|
|
Left e -> pure $ Left (CueErr e)
|
|
Right n -> case fromNounErr n of
|
|
Left (p,e) -> pure $ Left (ParseErr p e)
|
|
Right x -> pure $ Right x
|