github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-29 02:44:36 +03:00
Code Issues Projects Releases Wiki Activity

Why was this indented this way? We may never know.

Browse Source
This commit is contained in:
Patrick Thomson 2020-02-11 10:59:21 -05:00
parent faa381656b
commit 638349b4ba
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/Control/Carrier/Parse/Simple.hs
View File

@ -1,5 +1,11 @@
{-# LANGUAGE FlexibleContexts, FlexibleInstances, GADTs, GeneralizedNewtypeDeriving, MultiParamTypeClasses,
RecordWildCards, TypeOperators, UndecidableInstances #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE UndecidableInstances #-}
-- | A carrier for 'Parse' effects suitable for use in the repl, tests, etc.
module Control.Carrier.Parse.Simple
( -- * Parse carrier
@ -53,10 +59,10 @@ runParser timeout blob@Blob{..} parser = case parser of
parseToPreciseAST timeout timeout language blob
>>= either (throwError . SomeException) pure
AssignmentParser language assignment -> do
raw <- parseToAST timeout language blob >>= either (throwError . toException) pure
let ast = Assignment.assign (blobSource blob) assignment raw
either (throwError . toException) k ast
AssignmentParser language assignment -> do
raw <- parseToAST timeout language blob >>= either (throwError . toException) pure
let ast = Assignment.assign (blobSource blob) assignment raw
either (throwError . toException) k ast
newtype ParseFailure = ParseFailure String
deriving (Show)