mirror of
https://github.com/unisonweb/unison.git
synced 2024-10-04 21:57:25 +03:00
fix build errors
This commit is contained in:
parent
ce2a4b0889
commit
0c1d9f45eb
@ -85,3 +85,4 @@ tests:
|
||||
- easytest
|
||||
- containers
|
||||
- code-page
|
||||
- unison-syntax
|
||||
|
@ -145,6 +145,7 @@ test-suite pretty-printer-tests
|
||||
, easytest
|
||||
, raw-strings-qq
|
||||
, unison-pretty-printer
|
||||
, unison-syntax
|
||||
if flag(optimized)
|
||||
ghc-options: -funbox-strict-fields -O2
|
||||
default-language: Haskell2010
|
||||
|
@ -17,7 +17,6 @@ import Unison.Parsers (unsafeParseFile)
|
||||
import Unison.Prelude
|
||||
import qualified Unison.Reference as R
|
||||
import Unison.Symbol (Symbol)
|
||||
import qualified Unison.Syntax.Name as Name (unsafeFromVar)
|
||||
import qualified Unison.Test.Common as Common
|
||||
import qualified Unison.Type as Type
|
||||
import Unison.UnisonFile (UnisonFile (..))
|
||||
@ -26,7 +25,7 @@ import qualified Unison.Var as Var
|
||||
test :: Test ()
|
||||
test =
|
||||
scope "datadeclaration" $
|
||||
let hashes = fromRight (error "Expected Right") $ Hashing.hashDataDecls Name.unsafeFromVar . (snd <$>) . dataDeclarationsId $ file
|
||||
let hashes = fromRight (error "Expected Right") $ Hashing.hashDataDecls . (snd <$>) . dataDeclarationsId $ file
|
||||
hashMap = Map.fromList $ fmap (\(a, b, _) -> (a, b)) hashes
|
||||
hashOf k = Map.lookup (Var.named k) hashMap
|
||||
in tests
|
||||
|
Loading…
Reference in New Issue
Block a user