scp-2883 - as suggested in review (correction)

IntersectMBO · Oct 15, 2021 · a565955 · a565955
1 parent 115869a
commit a565955
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/marlowe-actus/src/Language/Marlowe/ACTUS/Definitions/ContractTerms.hs b/marlowe-actus/src/Language/Marlowe/ACTUS/Definitions/ContractTerms.hs
@@ -266,7 +266,7 @@ instance FromJSON Cycle where
                 <*> return False
 
       unconsConstant :: Char -> Text -> Maybe Text
-      unconsConstant c t | T.head s == c = Just (T.tail t)
+      unconsConstant c t | T.head t == c = Just (T.tail t)
       unconsConstant _ _ = Nothing
 
       hush :: Either a b -> Maybe b