diff options
| author | Omni Worker <bot@omni.agent> | 2025-11-21 06:26:49 -0500 |
|---|---|---|
| committer | Omni Worker <bot@omni.agent> | 2025-11-21 06:26:49 -0500 |
| commit | 717d58af46f4cc81baea27f4eab9a58e01dae24a (patch) | |
| tree | 7d69a43a202703c32e0588d3c4409699e1536204 /Omni | |
| parent | bf7a6695c972b61e693aa0a239ab4fa66f369466 (diff) | |
fix: normalize haskell namespace and remove reproduce script
Amp-Thread-ID:
https://ampcode.com/threads/T-79499d9e-f4f4-40de-893c-524c32a45483
Co-authored-by: Amp <amp@ampcode.com>
Diffstat (limited to 'Omni')
| -rw-r--r-- | Omni/Namespace.hs | 5 | ||||
| -rw-r--r-- | Omni/Reproduce.hs | 20 | ||||
| -rw-r--r-- | Omni/Task.hs | 10 |
3 files changed, 9 insertions, 26 deletions
diff --git a/Omni/Namespace.hs b/Omni/Namespace.hs index 5884507..a0f8a8e 100644 --- a/Omni/Namespace.hs +++ b/Omni/Namespace.hs @@ -111,7 +111,10 @@ toHaskellModule :: Namespace -> String toHaskellModule = toModule fromHaskellModule :: String -> Namespace -fromHaskellModule s = Namespace (List.splitOn "." s) Hs +fromHaskellModule s = + let s' = if ".hs" `List.isSuffixOf` s then List.take (length s - 3) s else s + s'' = map (\c -> if c == '/' then '.' else c) s' + in Namespace (List.splitOn "." s'') Hs toSchemeModule :: Namespace -> String toSchemeModule = toModule diff --git a/Omni/Reproduce.hs b/Omni/Reproduce.hs deleted file mode 100644 index d78406b..0000000 --- a/Omni/Reproduce.hs +++ /dev/null @@ -1,20 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE NoImplicitPrelude #-} - --- : out reproduce -module Omni.Reproduce where - -import Alpha -import Omni.Namespace (fromHaskellModule, toPath) - -main :: IO () -main = do - let ns1 = "Omni/Task.hs" - let parsed1 = fromHaskellModule ns1 - putStrLn $ "Input: " ++ ns1 - putStrLn $ "Parsed path: " ++ show (toPath parsed1) - - let ns2 = "Omni.Task.hs" - let parsed2 = fromHaskellModule ns2 - putStrLn $ "Input: " ++ ns2 - putStrLn $ "Parsed path: " ++ show (toPath parsed2) diff --git a/Omni/Task.hs b/Omni/Task.hs index b6ac195..65e9d58 100644 --- a/Omni/Task.hs +++ b/Omni/Task.hs @@ -207,11 +207,11 @@ move args tid <- getArgText args "id" statusStr <- getArgText args "status" let newStatus = case statusStr of - "open" -> Open - "in-progress" -> InProgress - "review" -> Review - "done" -> Done - _ -> panic "Invalid status. Use: open, in-progress, review, or done" + "open" -> Open + "in-progress" -> InProgress + "review" -> Review + "done" -> Done + _ -> panic "Invalid status. Use: open, in-progress, review, or done" updateTaskStatus tid newStatus if isJsonMode args then outputSuccess <| "Updated task " <> tid |