ngws/mad
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove duplicated old way of doing this

Browse Source
This commit is contained in:
Niels G. W. Serup
2024-09-21 17:39:50 +02:00
parent 6a2a87cfc3
commit bb52c043cd
3 changed files with 10 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
byg/src/ComputationM.hs
View File

@@ -16,13 +16,10 @@ data ComputationRun a b = ComputationRun (Function a b)
data TypedRun a b where
F :: Function a b -> TypedRun a b
FIO' :: IsFIO f a b => f -> TypedRun a b
FIO :: FunctionIO a b -> TypedRun a b
FIO :: IsFIO f a b => f -> TypedRun a b
TInject :: b -> TypedRun () b
InList :: ComputationM TokenNotTraversable b -> TypedRun [a] [b]
testtr = FIO' ListDirectory'
instance Show (ComputationM t a) where
show _ = "<computation>"
@@ -76,7 +73,7 @@ inject :: Show a => a -> ComputationM ta a
inject x = genDependency (Dependency NoToken (TInject x))
runIO :: (Show a, Show b, IsFIO f a b) => f -> Token t a -> ComputationM TokenNotTraversable b
runIO f input = genDependency (Dependency input (FIO' f))
runIO f input = genDependency (Dependency input (FIO f))
makeTraversable :: Token TokenNotTraversable [a] -> Token TokenTraversable (Token TokenNotTraversable a)
makeTraversable (Token n) = Token n